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MODULE PATVEC ( ! 


=32 v4.0-742 
ERSCPATCH.SACIPATVEC.B3204°" (1 


— 


ataateael EQL 1 

ADDRESSING_MODE (EXTERNAL = LONG_RELATiVE, NONEXTERNAL = LONG_RELATIVE), 
NT = 'V04-000' 
BEGIN 


elalalahalalalalalahahalabahahahahehehehebehelebeledelelelebebebebebebelebeiebebabeielebalalaiahelaiaiaialahiaiahalehlhttisbeicleieieiaae 
ie 

'# COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 

ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 

. ALL RIGHTS RESERVED. 

is THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 

ie ONLY IN ACCORDANCE WITH THE TERMS OF SUCH ae SE AND WITH THE 

is INCLUSION OF THE ABOVE Sid NOTICE. THIS SOFTWARE OR ANY OTHER 

i COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 

ie OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
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ie 
ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
i: onepoke Tite. NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


i DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
tt SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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+ 
FACILITY: PATCH 


NOUS WN SO OONOUSWN—O 


ABSTRACT: Handle so-called ‘vector storage’ in conjunction 
with the RST build and rebuild modules. 
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ENVIRONMENT: This module runs on VAX under VAX/VMS, user mode, non-AST Level. 
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! 
' 
: 
3 ! 
' 
01! 
g Author: Kevin Pammett, August 12, 1977. 
4 ; Version: x01.03 
é 5 MODIF CATIONS: 
48 2 i v03-001 MTROO12 Mike Rhodes 16-Aug-1982 
49 : Modify file names to remove duplicate file nabe useage 
? 3} } between code and require files. 
3 A : NO DATE PROGRAMMER PURPOSE 
4 rs i 
5 55 $ 0 1-DEC-77 K.D. MORSE ADAPT VERSION 35 FOR PATCH. 
$ 2$ ' 1 5-APR-7 K.D. MORSE A ae TO NATIVE COMPILER. 
5 $ 2 8-MAY-7 K.D. MORSE ANGES FOR VERS 36. 


13-JUN-78 


K.D. MORSE 
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ADD FAO COUNTS TO SIGNALS. 
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SWITCHES LIST (SOURCE); 
EXTERNAL R 
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TINE 
fao_out; 
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GLOBAL ROUTINE PATSVS_INIT( STORE_DESC_ADDR, NUM_ELEMENTS, ELEMENT SIZE ) : NOVALUE = 


lee 
Functional Description: 


Initialize storage for a soecelled “storage vector’’. 
See DBGRST.REQ for a description of these structures. 


Formal Parameters: 


G2 09 C9 C9. 09 CD CO. CDODCD 


WAWMAWAAWN AAA NAAN 


S 1 9 1 

¥e. 1 1 

3 109 1 § 1 

Ss : 1 1 

oe 1384 1! 

; 198 1385 1! 

3 1 : 1! 

; 110 1 1! 

TW BY 

: 118 1390 1! STORE _DESC_ADDR “ve address of the storage yegtor descriptor 

; 6116 1 3) 1! which this routine is to initialize. 

3 433 1 § 1! NUM_ELEMENTS -The maximum number of elements which will 

: 138 1395 1! ever be allocated from this vector. 

; iit ! iy } ELEMENT_SIZE -The maximum size, in bytes, of each element. 

; 119 1396 1 i Implicit Inputs: 

: 121 1398 1! Since we assume that records are fixed-length, 

ee § 1399 1! we actually allocate more storage than 

= 1400 1! we will coat ly need. This will be fixed up when we 

: ! ¢ et ! can ‘shrink’ RST storage. 

; 1$6 1408 ! ! Routine Value: 

; 158 1405 1! NOVALUE = because if we run out of etorage (the only 

3 1 e's 1! thing which can go wrong), we don't get 

3 ; tt ' control back anyways. 

; ! ¢ 130) : Side Effects: 

4 1411 1! The eterage descriptor is initialized in such 

} ’ 5 1216 : a way that GET_VEC_STORAGE can do its thing. 

; 1 1414 1! RST storage is allocated. 

pig 0 ae 

: 140 1217 2 BEGIN 

: 123 1219 3 MAP 

: 128 1420 STORE_DESC_ADDR : REF VECT_STORE_DESC; ! We get passed a pointer to the storage 
3 «(144 1421 } descriptor for the module we are 
3 16? 1¢ § ! jaitializing vector storage for. 
; 143 1424 2 LOCAL 

; 148 1425 STORAGE : REF MC_RECORD; ! Pointer to the actual storage 
3 169 14 $ ! we allocate. 
oe eee 

; 13¢ 14 5 i Ask for the necessary RST storage. Note that we don't get control back 

3 137 i? ? if the requisition is denied. 

; 136 1? § STORAGE = PATSRST_FREEZ( RST_UNITS(.ELEMENT_SIZE * .NUM_ELEMENTS)); 

; 15 1634 1+ : 

; 158 1435 ! Initialize the vector gtorege descriptor, The ‘marker’ starts out being 

3; 190 1436 ! the same as the beginning address since initially the entire vector is 


— —) —) ds es 4) — 3 ws 
NNAAAAAAAASAO 
HOO DNOUNEWN HO 
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; Routine Size: 


Heirs 1:08 yated eusserB2 
H available for re-allocation. 


STORE -DESC_ADDRE STOR_BEGIN_RST _ =_ STORAGE; 
STORE-DESC"ADDRLE STOR-MARKER } = .STORAGE; 


'e4 
! The end RST address is calculated by taking into account that the standard 
Bs PATCH storage manager works in LOWGWORDs and rounds up. 


STORE -DESC_ADDRE STOR END _RST J = .STORAGE 
+ (RST_UNTTS(. ELEMENT ~SIZE*.NUM_ELEMENTS) * ZUPVAL); 


1 END; 
TITLE PATVEC 
“IDENT \V04-000\ 
.EXTRN PATSFAO_OUT, PATSRST_FREEZ 
SEXTRN PATS$RST-RELEASE 
-EXTRN PATSGL_RST_BEGN 
.PSECT _PATSCODE,NOWRT,2 
000¢ 00000 .ENTRY PATS$VS_INIT, Save R 
52 Oc ac 08 aC es 90008 MULL NUM. ELEMENTS, ev Emeat™ 312, R2 
2g 03 ¢0 0000 ADDL 
& 04 C6 90008 DIVL2 #4, R 
52 DD 0000E PUSHL R2 
000000006 EF 01 FB 00010 CALLS #1, PATS$RST_FREEZ 
1 04 AC DO 00017 OVL § STORE_DESC_ADDR, R1 
01 «AI 50 BO 0001B MOVW STORAGE, 1TR1) 
05 Al 50 BO O001F OVW STORAGE, 5(R1) 
53 604 DE 000 : MOVAL (STORAGE) CRI, R3 
03 Al 53 BO 000 MOVW R3, 3(R1) 
04 00028 RET 


44 bytes, Routine Base: _PATSCODE + 0000 
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! releasing vector storage for. 


oo 


LOCAL 


VECT_SIZE; ' Pointer to the actual storage 


' we allocate. 


lee 
: Don't try to free storage which is not allocated. 


iF < -STORE_DESC_ADDRC STOR_BEGIN_RST J EQL 0 ) 
RETURN; 


MOMIPOPOPoPoNNoN 


PA a a 


'e+ 
: Pick up the size of the vector, in bytes. 
VECT_SIZE = .STORE_DESC_ADDRE STOR_END_RST ] - .STORE_DESC_ADDREC STOR_BEGIN_RST J; 


lee 
Release the storage. 


PATSRST_RELEASE( .STORE_DESC_ADDRC STOR_BEGIN_RST J, RST_UNITS(.VECT_SIZE)); 


DONO UNEWN —“OVONOUES Win "OO 0@n 


H 123 1008 } GLOBAL ROUTINE PATSVS_FREE( STORE_DESC_ADDR ) : NOVALUE = : 
: 175 1481 1 +4 ; 
3 178 14 § 1 ! Functional Description: ; 
ue 14 . 3 ; 
; 178 1454 1! Release storage for a so-called ‘’storage vector’. : 
3 44 1 5 ! } See PATRST.REQ for a description of these structures. : 
; 6181 1283 1 ! Formal Parameters: 3 
3 it¢ 1458 1! F 
; 1 1459 1! STORE_DESC_ADDR <The address of the storage vector descriptor ; 
3 130 1289 ! which completely describes this storage. : 
; «(186 1206 1 ! Implicit Inputs: $ 
3 167 1465 1! $ 
; «(188 1464 1! We assume that subtracting two RST pointers 3 
3 4 1e97 ! ("end=-begin'') gives the number of bytes between them. : 
3; «6191 1467 1 ! Routine Value: : 
: 136 1468 1! 3 
; 1469 1! NOVALUE = because if there is a free storage error (the only : 
: 194 1470 1! thing which can go wrong), we don't get : 
3 199 1471 1! control back anyways. : 
; 196 are 1! : 
3; 197 1473 1 ! Side Effects: 3 
; 198 1474 1! 3 
; 199 1475 1! RST storage is released and the ‘begin’ pointer field of 3 
: is yore : the corresponding storage descriptor is zeroed out. : 
5 203 1478 1 3 
; a 1479 BEGIN 3 
; 204 1480 3 
; 205 1481 MAP : 
: 206 186 STORE_DESC_ADDR : REF VECT_STORE_DESC; ! We get passed a potater to the storage 3 
; 2 1ear descriptor for the module we are : 
; 1o82 3 
; 1289 ' 3 
: 1488 : F 
: 1o82 3 
3 1490 3 
: 1491 3 
3 1636 F 
$ 149 : 
3 1494 3 
: 1495 3 
3 1208 : 
3 149 3 
: 1498 3 
: 1499 3 
1301 
: 1 ; 
3 1 ; 3 
3 1 : 
3 1505 F 
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GLOBAL ROUTINE PATSVS_SHRINK( STORE_DESC_ADDR ) : NOVALUE = 
lee 
' Functional Description: 


Free up the unused portion of the indicated vector storage. 
Formal Parameters: 


STORE _DESC_ADDR -The address of the storage yetter descriptor 
which completely describes this storage. 


Implicit Inputs: 
If the STOR BEGIN_RST is the same as STOR_MARKER then 
no vector storage was actually allocated. So far this 
is — only case we handle - we free up the entire 
vector. 


Routine Value: 


DWONAVUVLSWN ("OO ONOULS Wn 


NOVALUE = because if there is a free storage error (the only 
thing which can go wrong), we don't get 
control back anyways. 


FUFUFUSVIUSUSUSUSUSVSUSISUS USSSA ISIS 


COONAUE WN O OONA NEW " OOONOUS 


Side Effects: 


RST storage aay be released and the ‘begin’ pointer field of 
the corresponding storage descriptor is zeroed out. 


o o rab Abedb dh ab a bedd | ee eee 
RP Se VSS S = 


St teh tat et al ee 


STORE_DESC_ADDR : REF VECT_STORE_DESC; ! We get passed a pointer to the storage 
!' descriptor for the module we are 


! releasing vector storage for. 


LOCAL 


VECT_SIZE; ' Pointer to the actual storage 


! we allocate. 


lee 
: Don't try to free storage which is not allocated. 


IF ¢ |. STORE _DESC_ADDRL STOR_BEGIN_RST J EQL 0 ) 
RETURN; 
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lee 

! If storage has been allocated but no records therein, we can free up the 
whole thing. 

iF -STORE_DESC_ADDREC STOR_BEGIN_RST J EQL .STORE_DESC_ADDRC STOR_MARKER J] ) 


PATSVS_FREE(.STORE_DESC_ADOR); 
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18-00-1984 Meee PNeSumGmaStensceaton Skcaparvec.as2c;%* cf 


0 
) 


to 
vouw 1ereeen13RS 93:98 g Whe mBHAS TER CHATCN chcaparvec.es2ni” 2} 


000 ENTRY PATS$VS_SHRINK Seve nothing ; 1514 
50 04 ac MOVL STORE BESC_ADOR, : 1559 
=: TSTW (RO) : 
0D BEQL «so : 
0S ad 01 AO 8 CHP (RO), 5 (RO) + 1567 
$9 DD 01 PUSHL RO + 1569 
C1 AF 1 FB 0001 CALLS #1, PATSVS_FREE ; 
04 00018 1$: RET + 1570 


; Routine Size: 25 bytes, Routine Base: _PATSCODE + 0053 


6 
1B-se “1984 01:08: VAX=11 BLiss-32_v4.0-742 Page 12 
racers Pee ee PN eee ee Nhe Secaparvec.asart@” cas 
GLOBAL ROUTINE PATSVS_GET( STORE_DESC_ADDR, RECORD.SIZE ) = 


'e¢ 
Functional Description: 


Al Locate a@ given-length record from so-called ‘vector storage” 
given a pointer to the associated vector storage descriptor. 


| 


MFR "O OONOUNS Uo 


i Formal Parameters: 


STORE _DESC_ADDR -The address of the storage vector descriptor 
which this routine works from. 

RECORD_SIZE -The number of bytes required for 

the new record. 


i Implicit Inputs: 


This routine builds in how to translate RST-pointers 
to longword pointers. 


' 

1 

! 

' 

' 

' 

! 

] 

' 

' 

' 

' 

' 

t 

1 

: We also build in how one deals with storage vector descriptors. 
: This includes the fact that we look at the pointer-type 
: field in the storage descriptor to determine whether we 
; should return an RST-pointer or a ‘longword' pointer. 
(See PATRST.REQ) 

! 
! 
' 
1 
' 
] 
' 
' 
] 
' 
] 
' 
‘ 
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i Routine Value: 
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A pointer to the allocated storage, 0 when there is none left. 
The pointer type (RST or soneserd |) is determined 
by looking at the STOR_LONG_P 

storage descriptor. 


i Side Effects: 
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6 
$09 : The storage vector descriptor fields 
608 ! are altered to reflect the allocation 
609 ! of another record. 
ge fis 
o1¢ BEGIN 
i 
615 STORE_DESC_ADDR : REF VECT_STORE_DESC; ! We get passed a pointer to the descriptor 
618 ! for the storage we are allocating from. 
o18 LOCAL 
61 STORAGE : REF RST_POINTER, ! An RST-pointer to the actual storage 
6 ! we will allocate 
6 NEW_MARKER : REF RST_POINTER; i How far along this allocation will 
? ¢ ! move the current marker. 
? 4 §ee 
5 ! If we get to allocate the requesies storage, it will be from where the 
? § current marker says we should get it. 
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; Routine Size: 
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16-Sep-1984 01:08: VAX-11 Bliss-32 V4.0- 
13735b=4382 93:98: Ee UN Sdn haSfeRscbaton 
STORAGE = .STORE_DESC_ADDRE STOR_MARKER J; 
t+ 
; See if taking the necessary storage from the indicated vector would overflow it. 
NEW_MARKER = STORAGE + .RECORD SIZE; 
1F (NEW MARKER GTRA .STORE_DESC_ADDRC STOR_END_RST J ) 
RETURN(FALSE); ! No more storage left. 
'+4 
! Update the storage descriptor to reflect the allocation of this new record. 
leo 
STORE _DESC_ADDRE STOR_MARKER } = .NEW_MARKER; 
14 
! We return an RST-pointer or a longword pointer, depending on a field in the 
storage descriptor. This field is initialized in build_module(). 
iF ( .STORE_DESC_ADDRE STOR_LONG_PTRS } ) 
STORAGE = .STORAGE + .PATSGL_RST_BEGN; ! Make an RST-pointer into a longword 


RETURN( .STORAGE ); 
END; 


0004 00000 .ENTRY PATSVS_GET, Save R2 
5 AC DO 0000 MOVL TORE_BESC ADDR, RO 
5 5 Ad 3¢ 000 MOVZWL 5(RO)> STORAGE 
51 5 5 xa & OO0A ADDL3 RECORD SIZE STORAGE, NEW_MARKER 
AO 1 00 €D é CMP2V #0, #18, 3(RO), NEW MARKER 
12 1F 00 15 BLSSU 
0S ad 51 ae 001 MOVW § NEW_MARKER, 5(RO) 
7 60 € 0 1B BLBC 
: 000000006 EE CO 1g ADDL2 PAT$GL_RST_BEGN, STORAGE 
2 pO 00025 1$ MOVL STORAGE, RO 
4 00028 RET 
50 D4 00029 2$ CLRL = RO 
4 00028 RET 


44 bytes, Routine Base: _PATSCODE + 006C 
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380 1993 1 END 'End of module 
1654 0 ELUDOM 
PSECT SUMMARY 
Name Bytes Attributes 
_PATSCODE 152 NOVEC,NOWRT, RD , EXE,NOSHR, 
Library Statistics 

soweesn= Symbo!l§ ----- --- 

File Total Loaded Percent 

_$255$DUA28: CSYSLIBISTARLET.L32;1 9776 0 0 
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LCL, REL, CON,NOPIC,ALIGN(2) 


Pages Processing 
Mapped Time 
581 00:00.9 
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